home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
KEYBOARD.SWG
/
0079_Caps.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-08-24
|
2KB
|
86 lines
{
hereya go. I've found that these come in pretty handy. You can make
some cool things with them too. I also have the code to detect if
the lights are on/off also if you want it.
}
uses crt; Procedure TurnCapsOn;Assembler;
ASM
SUB AX,AX
MOV ES,AX
MOV AL,64
OR ES:[417h],AL
RET
END;
Procedure TurnNumOn;Assembler;
ASM
SUB AX,AX
MOV ES,AX
MOV AL,32
OR ES:[417h],AL
RET
END;
Procedure TurnScrollOn;Assembler;
ASM
SUB AX,AX
MOV ES,AX
MOV AL,16
OR ES:[417h],AL
RET
END;
Procedure TurnCapsOff;Assembler;
ASM
SUB AX,AX
MOV ES,AX
MOV AL,10111111b
AND ES:[417h],AL
RET
END;
Procedure TurnNumOff;Assembler;
ASM
SUB AX,AX
MOV ES,AX
MOV AL,11011111b
AND ES:[417h],AL
RET
END;
Procedure TurnScrollOff;Assembler;
ASM
SUB AX,AX
MOV ES,AX
MOV AL,11101111b
AND ES:[417h],AL
RET
END;
var
x : integer;
{Watch your lights} begin
x:=0;
repeat
inc(x);
if x mod 3 = 0 then
Begin TurnNumOn;TurnCapsOff;TurnScrollOff;
End;
If X mod 3 = 1 then
Begin
TurnNumOff;TurnCapsOn;TurnScrollOff;
End;
If X Mod 3 = 2 then
Begin
TurnNumOff;TurnCapsOff;TurnScrollOn;
End;
Delay(115);
until keypressed;
end.